home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Libris Britannia 4
/
science library(b).zip
/
science library(b)
/
PROGRAMM
/
TUTORIAL
/
0222.ZIP
/
TIMM.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1980-01-01
|
1KB
|
27 lines
{$INCLUDE:'timi.pas'}
Program TimerTest (Input,Output);
Uses Tim;
{ This program really consists of three pieces: a main program
TIMM.PAS (this piece), a unit implementation (TIMU.PAS), and a
unit interface (TIMI.PAS). The unit is first compiled separately;
its compilation results in an object module called TIMU.OBJ.
This program is then compiled and that generates object module
called TIMM.OBJ. The two are then linked together with the
linker (respond TIMM.OBJ+TIMU.OBJ to the linker's object question
if you are using linker 1.1; TIMM.OBJ,TIMU.OBJ if you use linker 1.0).
The linker then generates executable code TIMM.EXE which will ask
you for a delay time and then delay for that many seconds... Not
very useful, unless you need (as I did ) to build in a delay of at least n
seconds into a communications or process control program }
Var DelTime: Real;
Begin
Write ('Enter Delay (in seconds) ... ');
Readln (DelTime);
Writeln ('Will be delaying for ',DelTime,' Seconds');
Delay (DelTime);
Writeln ('Dealy completed')
End.